Private Sub cmdPrev_Click(ByVal sender As System.Object, 
        ByVal e As System.EventArgs) Handles cmdPrev.Click
        Me.BindingContext(DataSet11, "employees").Position -= 1
        ShowPosition()

End Sub

Private Sub cmdNext_Click(ByVal sender As System.Object, 
           ByVal e As System.EventArgs) Handles cmdNext.Click
        Me.BindingContext(DataSet11, "employees").Position += 1
        ShowPosition()

End Sub

Private Sub ShowPosition()
        Dim iCnt As Integer
        Dim iPos As Integer
        iCnt = Me.BindingContext(DataSet11, "employees").Count
        If iCnt = 0 Then
            txtRecordcnt.Text = "(No records)"
        Else
            iPos = Me.BindingContext(DataSet11, "employees").Position + 1
            txtRecordcnt.Text = iPos.ToString & " of " & iCnt.ToString
        End If
End Sub
